      PARAMETER (MAXERR=100)
      CHARACTER ERRKEY(MAXERR)*10,ERRSUB(MAXERR)*15,ERRMES(MAXERR)*60
      INTEGER ERRCOD(MAXERR)
      COMMON /ERRMS1/ ERRKEY,ERRSUB,ERRMES
      COMMON /ERRMS2/ NERRMS,ERRCOD
